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1. MCFLAT. 
An efficient functim FLATTEN is "well-known" and due to Mc CARTHY[5]. We give below a 
version of it, using the predicates NULL and ATOM. 


(DE MCFLAT(X) (FOO x NIL)) 
(DE FOO(X Z) (COND 
(NULL X)Z) 
(CATOM X) (CONS X 2))- 
_(TCFOO (CAR X)(FOO(COR X)Z))))) 


4 


In order to study the complexity of this function we shall count the ‘number of times 
FOO is called when one evaluates (MCFLAT X) where X is a list conta ining n atoms and 
m couples of parenthesis. In an intuitive way, consider first the list (A) which leads 
to 3calls of FOO (the initial one and then 2 recursive calls). When an atom is added 
to it , say X becomes (A B), 5 calls to FOO are necessary, i.e. we add 2 new calls to FOO 
per new atom. The same is true when one considers ((A)), i.e. we add 2 calls by new 
nesting level. This means that FOO is called 2n+2m-1 times by MCFLAT. 
2. MQFLAT : transforming programs contrw ted from examples. 
ARA 
Our methodology fa getting programs from input-output examples is described inf1,2,3] . 
In principle, it c msists into 4 steps. 
The input sequence is transformed into a predicate sequer e, the output sequeme is 
tranfarmed into a computation traces sequeme, each of the new sequences is transformed 
to sets of recursion relations which can fim lly be proved[2, 6]to be equivalent toa 
program. 
We shall study here the example of the top-level COPY function. The input-output 
_ sequere is {x ,=(A)> £(x,)=(A); x,=(A B)> f(x =A B) ;x,= (A B C)> £(x,)=(A BC)3...} . 
We deduce from it the following predicates and computation traces sequer es: 
{p(x)=(ATOM(CDR X))> £ ,(X)= (CONS (CAR X)NIL) 5 l 
Py (x)=(ATOM(CDDR X))> fy (X)=(CONS (CAR X) (CONS (CADR X)NIL)) 3; 
po (X)=(ATOM(CDDDR X))> £,(X)=(CONS (CAR X) (CONS (CADR X) (CONS (CADDR X)NIL))); .} a 


Matching Pi and Pi leads trivia lly to the recursion relation Py 41 (X)=P; (CDR(X)). 


Matching f; and oe Kaai of feat (as the arrows show ) leads to the recursion relation: 
f; pı (X)=CONS (CAR(X), £; (CDR(K) )) which we shall rather write for further transformtion 
purposes : £54, = h(X, f; (CDR(X))) where h(X,Z) = (CONS(CAR X)Z). 

We finally obtain a program whose stopping conditions are given by the first predicate 


and the first trace and whose recursive body is given by the recursion re htions: 
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(De COPY(X) (COND 
(CATOM(CDR X)) CCONS(CAR X)NIL)) 
(TCH X(COPyY(COR X)))))) 


= ‘ite H(X Z)(CONS(CAR X)2Z)? : - 


The programs we thus obtain are generally defined for a specific input domin which is 
here the flat lists( they have only atoms at their top-level). Asa mtter of fact, it 
can be proved that they are defined for any list but they act at the top-level only. 
We have described in [42] how to obtain from this program F an other program F' which 
is recusively defined onall nesting levels of the list. We describe in [4b] how to 
obtain directly (FLATTEN(F' X)), i.e. a program which executes the action of Fat all 
nesting levels and flattens its result. 
We shall not detail here these transformtions : they are quite cumbersome to describe 
in the general case. From the intuitive point of view, we can simply sy that the form 
of the synthesized programs a llowsthe reasoning =: F' is like F exept tmt it tests if 
(CAR X) (or other (CADÉR X) expressions ) in the stopping bramch are atomic or not. If 
yes then F' is identical to F, if not then F' calls itself again, applied to the 
corresponding non-atomic expression. 
Applied to COPY, this transformtion leads to MQFLAT: 
(DE MQFLAT(X)(FQQ x NIL)? ; l he 
We FQQ(X Z) (COND FQQI 
(CATOM(COR X)) (COND 
(CATOMICAR X)) CCONS(CAR X)Z)) F002 
(TCFQQ(CAR XIZ))))_ #QQ 
(T(HQQ X(FQQ(CDR x)2Z))))) - FQQ3 
(DE HQQ(X Z) (COND 


(CATOM(CAR X)) (CONS(CAR X)Z)) 
(TCFQQ(CAR X)Z)))). 


~ FQQ4 
When (MQFLAT '(A)) is eva luted, only 1 call to FQQI is needed. When one adds one 

atom in the list then (MQFLAT ‘(A B)) calls FQQI then HQQ ( thus FQQ4), i.e. each new 
atom induces 2 new recursive calls. When one adds a nesting level, MQFLAT applied to 
((A)) needs a call to FQQi and a call to FQQ2 wise. each nesting leveladds only l 
supplementary recursive call. It follows that if x contains n atoms and m pairs of 
parenthesis, 2ntm-2 calls to FQQ and HQQ are needed. l 

2.3. An other( inefficient) FLATTEN. 

Fran the above example , one might believe that we implicitely claim that our methodology 
leads always to good programs. This would be wr ong and we feel it interesting enough 
that autom tica lly constructed programs are not automitically the worse possible! 

One can get an other COPY from the examples by mtching "root to root" f; and fsa 

The recurreme relations are slightly more complicated since one need to genera lize 

f; (3) to g; & NIL) and look fæ recursion relations between g; X, Z) and B54, © Z) where 
g; &% Z) is the same expression as f; (X) except that the NIL of £; (X) is replaced by Z. 
Once this generalization is made, one finds quite easily the recursion relations : 

f. i02; (X, NIL); 

8o z) (CONS (CAR X)Z), g, aa A (X h; (X, z); 
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h (X, Z)= (CONS (CADR X)Z), h; ,, (% Z)=h, (CDR(X), Z). 
One a bso remrks that the X œ 8; ræurs as X> X while the X of P; ( the domin predicates} 
recurs as X+ (CDR X) so tmt we need an other variable (we shall call it XX) in order 
to express the domin recurreme relations. 
Finally, we obtain the program : 
(DE COPY2(x)(G2 X x NIL)? 
(DE G2(X XX Z) (COND 
CCATOM(COR XX)) (CONS(CAR X)2)) 
(T(G2 X(CDR XX) (H2 X XX 2))))) 
(DE H2(X XX Z) (COND 


CCATOM(CODR xxX))(CONS(CADR X)Z)) 
(TCH2(COR X) (CDR XX)Z)))) ee 


We apply the same transform tion to this new COPY and find : 


(DE MKFLAT(X) (FKK x X NIL?) 
(DE FKK(X XX 2) (COND 
(CATOM(CDOR XX)) (COND 
((ATOM(CAR X))(CONS(CAR X)Z)) 
(TCFKK(CAR X) (CAR X)Z)))) 
(TCFKK X(COR Xx) CHKK X XX Z))))) 
(DE HKK(X XX 2) (COND 
(CAFOM(CDOR XX)) (COND 
(CATOM(CADR X))(CONS(CADR X)Z)) 
(TCFKK(CADR XI (CADR X)Z)))) 
(TCHKK (COR X) (CDR XxX)Z)))) 


MKFLAT is clearly of degree 2 polynomial complexity, it runs quite slowly as compared 

with the other two. ' 

One should notice that the good performnce of MQFLAT origimtes fran the fact that 

the H function which embedds COPY is a constant fum tôn while the H2 fum tion embedded 

in G2 is not constant. This is a very specialcase and one should in the general case 
: choose the "root to root" mtching rather than the mtching of section 2.1.. 

3. Discussion. 

It is difficult to say that our program is "better" than M CARTHY's sime the stopping 

conditions are not the same and sice we use cross-recursion. We theref re do not c laim 

that each LISP system should implement MQFLAT. It is nevertheless surprising that a 

transformation which is system tic enough ‘to be implemented(:.and sha 11 be soon imple- 

mented) , i.e. a program that can be automtically synthesized can well challenge the 

programs due to very skillful programmers. 

This illustrates a point whicha mtter of deep contests among the practisers of Artifi- 

cial Intelligeme : does A.I. rely or not on simulation of behaviour ? 

It is clear that we never am lysed our own wy of programming in order to disc wer 

MQFLAT . On the contrary , this program comes from considerations on necessities inter- 

‘mal to program synthesis by machine. In the AISB smiety we must admit that we have 

a tendency to accentmte the AI rather thin the SB. 

Aknowledgment : We were indwed to this work through discussions with J S. MOORE. 
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